/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tex / ifthen.doc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 25 20 49 46 54 48 45 4e | 20 44 4f 43 55 4d 45 4e |% IFTHEN| DOCUMEN|
|00000010| 54 2d 53 54 59 4c 45 20 | 4f 50 54 49 4f 4e 20 2d |T-STYLE |OPTION -|
|00000020| 20 72 65 6c 65 61 73 65 | 64 20 32 38 20 4f 63 74 | release|d 28 Oct|
|00000030| 6f 62 65 72 20 31 39 38 | 36 0a 25 20 20 20 20 66 |ober 198|6.%    f|
|00000040| 6f 72 20 4c 61 54 65 58 | 20 76 65 72 73 69 6f 6e |or LaTeX| version|
|00000050| 20 32 2e 30 39 0a 25 20 | 43 6f 70 79 72 69 67 68 | 2.09.% |Copyrigh|
|00000060| 74 20 28 43 29 20 31 39 | 38 36 20 62 79 20 4c 65 |t (C) 19|86 by Le|
|00000070| 73 6c 69 65 20 4c 61 6d | 70 6f 72 74 0a 0a 25 20 |slie Lam|port..% |
|00000080| 5c 69 66 74 68 65 6e 65 | 6c 73 65 7b 54 45 53 54 |\ifthene|lse{TEST|
|00000090| 7d 7b 54 48 45 4e 43 4c | 41 55 53 45 7d 7b 45 4c |}{THENCL|AUSE}{EL|
|000000a0| 53 45 43 4c 41 55 53 45 | 7d 20 0a 25 20 20 20 20 |SECLAUSE|} .%    |
|000000b0| 41 6e 20 69 66 2d 74 68 | 65 6e 2d 65 6c 73 65 20 |An if-th|en-else |
|000000c0| 63 6f 6d 6d 61 6e 64 20 | 77 68 65 72 65 20 0a 25 |command |where .%|
|000000d0| 20 20 20 20 20 20 20 20 | 54 45 53 54 20 3d 3d 20 |        |TEST == |
|000000e0| 5c 65 71 75 61 6c 7b 53 | 54 52 49 4e 47 7d 7b 53 |\equal{S|TRING}{S|
|000000f0| 54 52 49 4e 47 7d 0a 25 | 20 20 20 20 20 20 20 20 |TRING}.%|        |
|00000100| 20 20 20 20 20 20 20 20 | 6e 75 6d 62 65 72 20 3c |        |number <|
|00000110| 20 6e 75 6d 62 65 72 20 | 7c 20 6e 75 6d 62 65 72 | number || number|
|00000120| 20 3d 20 6e 75 6d 62 65 | 72 20 7c 20 6e 75 6d 62 | = numbe|r | numb|
|00000130| 65 72 20 3e 20 6e 75 6d | 62 65 72 20 7c 0a 25 20 |er > num|ber |.% |
|00000140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 5c |        |       \|
|00000150| 28 54 45 53 54 5c 29 20 | 7c 20 5c 6e 6f 74 20 54 |(TEST\) || \not T|
|00000160| 45 53 54 20 7c 20 54 45 | 53 54 20 5c 6f 72 20 54 |EST | TE|ST \or T|
|00000170| 45 53 54 20 7c 20 54 45 | 53 54 20 5c 61 6e 64 20 |EST | TE|ST \and |
|00000180| 54 45 53 54 0a 25 20 20 | 20 20 77 69 74 68 20 5c |TEST.%  |  with \|
|00000190| 6f 72 2c 20 5c 61 6e 64 | 20 61 6e 64 20 5c 6e 6f |or, \and| and \no|
|000001a0| 74 20 64 65 6e 6f 74 69 | 6e 67 20 74 68 65 20 6f |t denoti|ng the o|
|000001b0| 62 76 69 6f 75 73 20 6c | 6f 67 69 63 61 6c 20 6f |bvious l|ogical o|
|000001c0| 70 65 72 61 74 6f 72 73 | 2c 0a 25 20 20 20 20 5c |perators|,.%    \|
|000001d0| 28 20 61 6e 64 20 5c 29 | 20 61 73 20 70 61 72 65 |( and \)| as pare|
|000001e0| 6e 74 68 65 73 65 73 2c | 20 61 6e 64 20 5c 65 71 |ntheses,| and \eq|
|000001f0| 75 61 6c 20 74 65 73 74 | 69 6e 67 20 65 71 75 61 |ual test|ing equa|
|00000200| 6c 69 74 79 20 6f 66 20 | 73 74 72 69 6e 67 73 2e |lity of |strings.|
|00000210| 0a 25 20 20 20 20 0a 25 | 20 20 5c 65 71 75 61 6c |.%    .%|  \equal|
|00000220| 7b 53 54 52 49 4e 47 7d | 7b 53 54 52 49 4e 47 7d |{STRING}|{STRING}|
|00000230| 0a 25 20 20 20 20 20 54 | 65 73 74 73 20 69 66 20 |.%     T|ests if |
|00000240| 74 68 65 20 74 77 6f 20 | 61 72 67 75 6d 65 6e 74 |the two |argument|
|00000250| 73 20 61 72 65 20 65 71 | 75 61 6c 2c 20 61 66 74 |s are eq|ual, aft|
|00000260| 65 72 20 61 6c 6c 20 6d | 61 63 72 6f 73 20 61 72 |er all m|acros ar|
|00000270| 65 20 65 78 70 61 6e 64 | 65 64 2e 0a 25 20 20 20 |e expand|ed..%   |
|00000280| 20 20 45 2e 67 2e 3a 20 | 5c 64 65 66 5c 66 6f 6f |  E.g.: |\def\foo|
|00000290| 7b 62 61 72 7d 20 20 2e | 2e 2e 20 63 61 75 73 65 |{bar}  .|.. cause|
|000002a0| 73 20 5c 65 71 75 61 6c | 7b 5c 66 6f 6f 7d 7b 62 |s \equal|{\foo}{b|
|000002b0| 61 72 7d 20 74 6f 20 65 | 76 61 6c 75 61 74 65 20 |ar} to e|valuate |
|000002c0| 74 6f 20 60 74 72 75 65 | 27 0a 25 0a 25 20 5c 77 |to `true|'.%.% \w|
|000002d0| 68 69 6c 65 64 6f 7b 54 | 45 53 54 7d 7b 44 4f 2d |hiledo{T|EST}{DO-|
|000002e0| 43 4c 41 55 53 45 7d 0a | 25 20 20 20 20 20 41 20 |CLAUSE}.|%     A |
|000002f0| 77 68 69 6c 65 2d 64 6f | 20 63 6f 6e 73 74 72 75 |while-do| constru|
|00000300| 63 74 69 6f 6e 2c 20 77 | 69 74 68 20 54 45 53 54 |ction, w|ith TEST|
|00000310| 20 74 68 65 20 73 61 6d | 65 20 61 73 20 61 62 6f | the sam|e as abo|
|00000320| 76 65 2e 0a 25 0a 25 20 | 5c 69 66 74 68 65 6e 65 |ve..%.% |\ifthene|
|00000330| 6c 73 65 7b 54 45 53 54 | 7d 7b 54 48 45 4e 2d 43 |lse{TEST|}{THEN-C|
|00000340| 4c 41 55 53 45 7d 7b 45 | 4c 53 45 2d 43 4c 41 55 |LAUSE}{E|LSE-CLAU|
|00000350| 53 45 7d 20 3d 3d 20 0a | 25 20 20 20 42 45 47 49 |SE} == .|%   BEGI|
|00000360| 4e 20 0a 25 20 20 20 20 | 5c 40 74 65 6d 70 62 6f |N .%    |\@tempbo|
|00000370| 78 61 20 3a 3d 20 5c 76 | 62 6f 78 7b 20 5c 70 72 |xa := \v|box{ \pr|
|00000380| 6f 74 65 63 74 20 3a 3d | 20 5c 6e 6f 65 78 70 61 |otect :=| \noexpa|
|00000390| 6e 64 0a 25 20 20 20 20 | 20 20 20 20 20 20 20 20 |nd.%    |        |
|000003a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 5c 6f 72 |        |     \or|
|000003b0| 20 20 3a 3d 20 5c 40 6f | 72 20 0a 25 20 20 20 20 |  := \@o|r .%    |
|000003c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003d0| 20 20 20 20 20 5c 61 6e | 64 20 3a 3d 20 5c 40 61 |     \an|d := \@a|
|000003e0| 6e 64 20 0a 25 20 20 20 | 20 20 20 20 20 20 20 20 |nd .%   |        |
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 5c 6e |        |      \n|
|00000400| 6f 74 20 3a 3d 20 5c 40 | 6e 65 67 0a 25 20 20 20 |ot := \@|neg.%   |
|00000410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000420| 20 20 20 20 20 20 5c 28 | 20 20 20 3a 3d 20 5c 40 |      \(|   := \@|
|00000430| 6c 70 61 72 65 6e 0a 25 | 20 20 20 20 20 20 20 20 |lparen.%|        |
|00000440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000450| 20 5c 29 20 20 20 3a 3d | 20 5c 40 72 70 61 72 65 | \)   :=| \@rpare|
|00000460| 6e 0a 25 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |n.%     |        |
|00000470| 20 20 20 20 20 20 20 20 | 20 20 20 20 5c 40 65 76 |        |    \@ev|
|00000480| 61 6c 20 5c 69 66 6e 75 | 6d 20 0a 25 20 20 20 20 |al \ifnu|m .%    |
|00000490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004a0| 20 20 20 20 20 20 65 76 | 61 6c 28 54 45 53 54 29 |      ev|al(TEST)|
|000004b0| 20 20 20 20 20 20 20 25 | 25 25 20 20 5c 69 66 27 |       %|%%  \if'|
|000004c0| 73 20 6e 6f 74 20 65 78 | 70 61 6e 64 65 64 0a 25 |s not ex|panded.%|
|000004d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004e0| 20 20 20 20 20 20 20 20 | 20 20 40 74 65 72 6d 20 |        |  @term |
|000004f0| 3a 3d 20 54 20 20 5c 65 | 6c 73 65 20 40 74 65 72 |:= T  \e|lse @ter|
|00000500| 6d 20 3a 3d 20 46 20 5c | 66 69 0a 25 20 20 20 20 |m := F \|fi.%    |
|00000510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000520| 20 20 20 20 20 20 5c 40 | 65 6e 64 65 76 61 6c 0a |      \@|endeval.|
|00000530| 25 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |%       |        |
|00000540| 20 20 20 20 20 20 20 20 | 20 20 20 40 67 74 65 6d |        |   @gtem|
|00000550| 70 61 20 3a 3d 47 20 40 | 76 61 6c 20 20 20 20 7d |pa :=G @|val    }|
|00000560| 0a 25 20 20 20 20 49 46 | 20 40 67 74 65 6d 70 61 |.%    IF| @gtempa|
|00000570| 20 3d 20 54 20 20 54 48 | 45 4e 20 54 48 45 4e 2d | = T  TH|EN THEN-|
|00000580| 43 4c 41 55 53 45 20 0a | 25 20 20 20 20 20 20 20 |CLAUSE .|%       |
|00000590| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 45 4c 53 |        |     ELS|
|000005a0| 45 20 45 4c 53 45 2d 43 | 4c 41 55 53 45 20 46 49 |E ELSE-C|LAUSE FI|
|000005b0| 0a 25 20 20 45 4e 44 0a | 25 0a 25 20 5c 40 65 76 |.%  END.|%.% \@ev|
|000005c0| 61 6c 20 3d 3d 20 42 45 | 47 49 4e 20 20 40 76 61 |al == BE|GIN  @va|
|000005d0| 6c 20 20 20 20 3a 3d 20 | 46 0a 25 20 20 20 20 20 |l    := |F.%     |
|000005e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 40 6f 72 |        |     @or|
|000005f0| 6f 70 20 20 20 3a 3d 20 | 54 0a 25 20 20 20 20 20 |op   := |T.%     |
|00000600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 40 6e 65 |        |     @ne|
|00000610| 67 61 74 65 20 3a 3d 20 | 46 0a 25 20 20 20 20 20 |gate := |F.%     |
|00000620| 20 20 20 20 20 20 45 4e | 44 0a 25 0a 25 20 5c 40 |      EN|D.%.% \@|
|00000630| 65 6e 64 65 76 61 6c 20 | 3d 3d 20 0a 25 20 20 20 |endeval |== .%   |
|00000640| 42 45 47 49 4e 20 20 0a | 25 20 20 20 20 20 20 20 |BEGIN  .|%       |
|00000650| 20 20 20 49 46 20 5c 40 | 6e 65 67 61 74 65 20 3d |   IF \@|negate =|
|00000660| 54 20 54 48 45 4e 20 5c | 40 6e 65 67 61 74 65 20 |T THEN \|@negate |
|00000670| 3a 3d 20 46 0a 25 20 20 | 20 20 20 20 20 20 20 20 |:= F.%  |        |
|00000680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000690| 20 20 20 20 49 46 20 5c | 40 74 65 72 6d 20 3d 20 |    IF \|@term = |
|000006a0| 54 20 54 48 45 4e 20 5c | 40 74 65 72 6d 20 3a 3d |T THEN \|@term :=|
|000006b0| 20 46 0a 25 20 20 20 20 | 20 20 20 20 20 20 20 20 | F.%    |        |
|000006c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006e0| 45 4c 53 45 20 5c 40 74 | 65 72 6d 20 3a 3d 20 54 |ELSE \@t|erm := T|
|000006f0| 20 20 20 20 20 0a 25 20 | 20 20 20 20 20 20 20 20 |     .% |        |
|00000700| 20 46 49 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | FI     |        |
|00000710| 20 20 20 20 20 46 49 0a | 25 20 20 20 20 20 20 20 |     FI.|%       |
|00000720| 20 20 20 49 46 20 5c 40 | 6f 72 6f 70 20 3d 20 54 |   IF \@|orop = T|
|00000730| 20 54 48 45 4e 20 49 46 | 20 5c 40 76 61 6c 20 3d | THEN IF| \@val =|
|00000740| 20 46 20 0a 25 20 20 20 | 20 20 20 20 20 20 20 20 | F .%   |        |
|00000750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000760| 20 20 20 20 54 48 45 4e | 20 5c 40 76 61 6c 20 3a |    THEN| \@val :|
|00000770| 3d 20 5c 40 74 65 72 6d | 20 46 49 0a 25 20 20 20 |= \@term| FI.%   |
|00000780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000790| 20 20 20 20 20 45 4c 53 | 45 20 49 46 20 5c 40 76 |     ELS|E IF \@v|
|000007a0| 61 6c 20 3d 20 54 20 54 | 48 45 4e 20 20 5c 40 76 |al = T T|HEN  \@v|
|000007b0| 61 6c 20 3a 3d 20 5c 40 | 74 65 72 6d 20 46 49 0a |al := \@|term FI.|
|000007c0| 25 20 20 20 20 20 20 20 | 20 20 20 46 49 0a 25 0a |%       |   FI.%.|
|000007d0| 25 20 5c 40 6f 72 20 3d | 3d 20 0a 25 20 20 20 42 |% \@or =|= .%   B|
|000007e0| 45 47 49 4e 20 20 40 74 | 65 72 6d 20 3a 3d 20 54 |EGIN  @t|erm := T|
|000007f0| 20 20 5c 65 6c 73 65 20 | 40 74 65 72 6d 20 3a 3d |  \else |@term :=|
|00000800| 20 46 20 5c 66 69 0a 25 | 20 20 20 20 20 20 20 20 | F \fi.%|        |
|00000810| 20 20 5c 40 65 6e 64 65 | 76 61 6c 0a 25 20 20 20 |  \@ende|val.%   |
|00000820| 20 20 20 20 20 20 20 5c | 40 6f 72 6f 70 20 3a 3d |       \|@orop :=|
|00000830| 20 54 0a 25 20 20 20 20 | 20 20 20 20 20 20 5c 69 | T.%    |      \i|
|00000840| 66 6e 75 6d 0a 25 20 20 | 20 45 4e 44 0a 25 0a 25 |fnum.%  | END.%.%|
|00000850| 20 5c 40 61 6e 64 20 20 | 3d 3d 20 0a 25 20 20 20 | \@and  |== .%   |
|00000860| 42 45 47 49 4e 20 20 5c | 72 65 6c 61 78 20 5c 40 |BEGIN  \|relax \@|
|00000870| 74 65 72 6d 20 3a 3d 20 | 54 20 20 5c 65 6c 73 65 |term := |T  \else|
|00000880| 20 5c 40 74 65 72 6d 20 | 3a 3d 20 46 20 5c 66 69 | \@term |:= F \fi|
|00000890| 0a 25 20 20 20 20 20 20 | 20 20 20 20 5c 40 65 6e |.%      |    \@en|
|000008a0| 64 65 76 61 6c 0a 25 20 | 20 20 20 20 20 20 20 20 |deval.% |        |
|000008b0| 20 5c 40 6f 72 6f 70 20 | 3a 3d 20 46 0a 25 20 20 | \@orop |:= F.%  |
|000008c0| 20 20 20 20 20 20 20 20 | 5c 69 66 6e 75 6d 0a 25 |        |\ifnum.%|
|000008d0| 20 20 20 45 4e 44 0a 25 | 0a 25 20 5c 40 6e 65 67 |   END.%|.% \@neg|
|000008e0| 20 3d 3d 20 20 42 45 47 | 49 4e 20 31 3d 31 20 5c | ==  BEG|IN 1=1 \|
|000008f0| 66 69 20 0a 25 20 20 20 | 20 20 20 20 20 20 20 20 |fi .%   |        |
|00000900| 20 20 20 20 20 20 5c 40 | 6e 65 67 61 74 65 20 3a |      \@|negate :|
|00000910| 3d 20 54 0a 25 20 20 20 | 20 20 20 20 20 20 20 20 |= T.%   |        |
|00000920| 20 20 20 20 20 20 5c 69 | 66 6e 75 6d 0a 25 20 20 |      \i|fnum.%  |
|00000930| 20 20 20 20 20 20 20 20 | 20 45 4e 44 0a 25 0a 25 |        | END.%.%|
|00000940| 20 5c 40 6c 70 61 72 65 | 6e 20 3d 3d 20 42 45 47 | \@lpare|n == BEG|
|00000950| 49 4e 20 31 3d 31 20 5c | 66 69 0a 25 20 20 20 20 |IN 1=1 \|fi.%    |
|00000960| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 5c |        |       \|
|00000970| 62 65 67 69 6e 67 72 6f | 75 70 0a 25 20 20 20 20 |begingro|up.%    |
|00000980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 5c |        |       \|
|00000990| 40 65 76 61 6c 20 5c 69 | 66 6e 75 6d 0a 25 20 20 |@eval \i|fnum.%  |
|000009a0| 20 20 20 20 20 20 20 20 | 20 20 20 45 4e 44 0a 25 |        |   END.%|
|000009b0| 0a 25 20 5c 40 72 70 61 | 72 65 6e 20 3d 3d 20 0a |.% \@rpa|ren == .|
|000009c0| 25 20 20 20 42 45 47 49 | 4e 20 20 5c 72 65 6c 61 |%   BEGI|N  \rela|
|000009d0| 78 20 5c 40 74 65 72 6d | 20 3a 3d 20 54 20 20 5c |x \@term| := T  \|
|000009e0| 65 6c 73 65 20 5c 40 74 | 65 72 6d 20 3a 3d 20 46 |else \@t|erm := F|
|000009f0| 20 5c 66 69 0a 25 20 20 | 20 20 20 20 20 20 20 20 | \fi.%  |        |
|00000a00| 5c 40 65 6e 64 65 76 61 | 6c 0a 25 20 20 20 20 20 |\@endeva|l.%     |
|00000a10| 20 20 20 20 20 49 46 20 | 5c 40 76 61 6c 20 3d 20 |     IF |\@val = |
|00000a20| 54 20 54 48 45 4e 20 5c | 40 67 74 65 6d 70 62 20 |T THEN \|@gtempb |
|00000a30| 3a 3d 47 20 31 3d 31 0a | 25 20 20 20 20 20 20 20 |:=G 1=1.|%       |
|00000a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a50| 45 4c 53 45 20 5c 40 67 | 74 65 6d 70 62 20 3a 3d |ELSE \@g|tempb :=|
|00000a60| 47 20 31 3d 30 20 20 20 | 46 49 0a 25 20 20 20 20 |G 1=0   |FI.%    |
|00000a70| 20 20 20 20 20 20 5c 65 | 6e 64 67 72 6f 75 70 0a |      \e|ndgroup.|
|00000a80| 25 20 20 20 20 20 20 20 | 20 20 20 5c 69 66 6e 75 |%       |   \ifnu|
|00000a90| 6d 0a 25 20 20 20 20 20 | 20 20 20 20 20 5c 40 67 |m.%     |     \@g|
|00000aa0| 74 65 6d 70 62 0a 25 0a | 25 20 5c 65 71 75 61 6c |tempb.%.|% \equal|
|00000ab0| 7b 53 54 52 31 7d 7b 53 | 54 52 32 7d 20 3d 3d 0a |{STR1}{S|TR2} ==.|
|00000ac0| 25 20 20 20 42 45 47 49 | 4e 20 20 31 3d 31 20 5c |%   BEGI|N  1=1 \|
|00000ad0| 66 69 0a 25 20 20 20 20 | 20 20 20 20 20 20 5c 40 |fi.%    |      \@|
|00000ae0| 74 65 6d 70 61 20 3a 3d | 20 65 76 61 6c 28 53 54 |tempa :=| eval(ST|
|00000af0| 52 31 29 0a 25 20 20 20 | 20 20 20 20 20 20 20 5c |R1).%   |       \|
|00000b00| 40 74 65 6d 70 62 20 3a | 3d 20 65 76 61 6c 28 53 |@tempb :|= eval(S|
|00000b10| 54 52 32 29 0a 25 20 20 | 20 20 20 20 20 20 20 20 |TR2).%  |        |
|00000b20| 49 46 20 5c 40 74 65 6d | 70 61 20 3d 3d 20 5c 40 |IF \@tem|pa == \@|
|00000b30| 74 65 6d 70 62 20 0a 25 | 20 20 20 20 20 20 20 20 |tempb .%|        |
|00000b40| 20 20 20 20 54 48 45 4e | 20 5c 40 74 65 6d 70 61 |    THEN| \@tempa|
|00000b50| 20 3a 3d 20 31 3d 31 0a | 25 20 20 20 20 20 20 20 | := 1=1.|%       |
|00000b60| 20 20 20 20 20 45 4c 53 | 45 20 5c 40 74 65 6d 70 |     ELS|E \@temp|
|00000b70| 61 20 3a 3d 20 31 3d 30 | 20 46 49 0a 25 20 20 20 |a := 1=0| FI.%   |
|00000b80| 20 20 20 20 20 20 20 5c | 69 66 6e 75 6d 20 5c 40 |       \|ifnum \@|
|00000b90| 74 65 6d 70 61 0a 25 20 | 20 45 4e 44 0a 25 0a 25 |tempa.% | END.%.%|
|00000ba0| 20 20 5c 77 68 69 6c 65 | 64 6f 7b 54 45 53 54 7d |  \while|do{TEST}|
|00000bb0| 7b 44 4f 2d 43 4c 41 55 | 53 45 7d 20 3d 3d 0a 25 |{DO-CLAU|SE} ==.%|
|00000bc0| 20 20 20 20 5c 69 66 74 | 68 65 6e 65 6c 73 65 7b |    \ift|henelse{|
|00000bd0| 54 45 53 54 7d 7b 40 77 | 68 69 6c 65 64 6f 20 3a |TEST}{@w|hiledo :|
|00000be0| 3d 20 74 72 75 65 0a 25 | 20 20 20 20 20 20 20 20 |= true.%|        |
|00000bf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 57 48 |        |      WH|
|00000c00| 49 4c 45 20 40 77 68 69 | 6c 65 64 6f 0a 25 20 20 |ILE @whi|ledo.%  |
|00000c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c20| 20 20 20 20 20 20 44 4f | 20 20 44 4f 2d 43 4c 41 |      DO|  DO-CLA|
|00000c30| 55 53 45 0a 25 20 20 20 | 20 20 20 20 20 20 20 20 |USE.%   |        |
|00000c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c50| 20 5c 69 66 74 68 65 6e | 65 6c 73 65 7b 54 45 53 | \ifthen|else{TES|
|00000c60| 54 7d 7b 40 77 68 69 6c | 65 64 6f 20 3a 3d 20 74 |T}{@whil|edo := t|
|00000c70| 72 75 65 7d 0a 25 20 20 | 20 20 20 20 20 20 20 20 |rue}.%  |        |
|00000c80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ca0| 20 20 20 7b 40 77 68 69 | 6c 65 64 6f 20 3a 3d 20 |   {@whi|ledo := |
|00000cb0| 66 61 6c 73 65 7d 0a 25 | 20 20 20 20 20 20 20 20 |false}.%|        |
|00000cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000cd0| 4f 44 7d 0a 25 20 20 20 | 20 20 20 20 20 20 20 20 |OD}.%   |        |
|00000ce0| 20 20 20 20 20 20 20 20 | 20 20 20 7b 7d 0a 0a 5c |        |   {}..\|
|00000cf0| 6c 6f 6e 67 5c 64 65 66 | 5c 69 66 74 68 65 6e 65 |long\def|\ifthene|
|00000d00| 6c 73 65 23 31 23 32 23 | 33 7b 5c 73 65 74 62 6f |lse#1#2#|3{\setbo|
|00000d10| 78 5c 40 74 65 6d 70 62 | 6f 78 61 0a 20 20 5c 76 |x\@tempb|oxa.  \v|
|00000d20| 62 6f 78 7b 5c 6c 65 74 | 5c 70 72 6f 74 65 63 74 |box{\let|\protect|
|00000d30| 5c 6e 6f 65 78 70 61 6e | 64 0a 20 20 20 20 20 20 |\noexpan|d.      |
|00000d40| 20 20 5c 6c 65 74 5c 6f | 72 5c 40 6f 72 20 5c 6c |  \let\o|r\@or \l|
|00000d50| 65 74 5c 61 6e 64 5c 40 | 61 6e 64 20 5c 6c 65 74 |et\and\@|and \let|
|00000d60| 5c 6e 6f 74 5c 40 6e 65 | 67 20 5c 6c 65 74 5c 28 |\not\@ne|g \let\(|
|00000d70| 5c 40 6c 70 61 72 65 6e | 20 5c 6c 65 74 5c 29 5c |\@lparen| \let\)\|
|00000d80| 40 72 70 61 72 65 6e 0a | 20 20 20 20 20 20 20 20 |@rparen.|        |
|00000d90| 7b 5c 6c 65 74 5c 69 66 | 5c 72 65 6c 61 78 5c 6c |{\let\if|\relax\l|
|00000da0| 65 74 5c 69 66 78 5c 72 | 65 6c 61 78 5c 6c 65 74 |et\ifx\r|elax\let|
|00000db0| 5c 69 66 6e 75 6d 5c 72 | 65 6c 61 78 5c 6c 65 74 |\ifnum\r|elax\let|
|00000dc0| 5c 66 69 5c 72 65 6c 61 | 78 0a 20 20 20 20 20 20 |\fi\rela|x.      |
|00000dd0| 20 20 5c 6c 65 74 5c 65 | 6c 73 65 5c 72 65 6c 61 |  \let\e|lse\rela|
|00000de0| 78 20 5c 78 64 65 66 5c | 40 67 74 65 6d 70 61 7b |x \xdef\|@gtempa{|
|00000df0| 23 31 7d 7d 5c 65 78 70 | 61 6e 64 61 66 74 65 72 |#1}}\exp|andafter|
|00000e00| 0a 20 20 20 20 20 20 20 | 20 5c 40 65 76 61 6c 20 |.       | \@eval |
|00000e10| 5c 69 66 6e 75 6d 20 5c | 40 67 74 65 6d 70 61 5c |\ifnum \|@gtempa\|
|00000e20| 72 65 6c 61 78 20 5c 64 | 65 66 5c 40 74 65 72 6d |relax \d|ef\@term|
|00000e30| 7b 54 7d 5c 65 6c 73 65 | 20 5c 64 65 66 5c 40 74 |{T}\else| \def\@t|
|00000e40| 65 72 6d 7b 46 7d 5c 66 | 69 0a 20 20 20 20 20 20 |erm{F}\f|i.      |
|00000e50| 20 20 20 20 20 20 5c 40 | 65 6e 64 65 76 61 6c 5c |      \@|endeval\|
|00000e60| 67 6c 6f 62 61 6c 5c 6c | 65 74 5c 40 67 74 65 6d |global\l|et\@gtem|
|00000e70| 70 61 5c 40 76 61 6c 7d | 5c 69 66 5c 40 67 74 65 |pa\@val}|\if\@gte|
|00000e80| 6d 70 61 20 54 23 32 5c | 65 6c 73 65 23 33 5c 66 |mpa T#2\|else#3\f|
|00000e90| 69 7d 0a 0a 5c 64 65 66 | 5c 40 65 76 61 6c 7b 5c |i}..\def|\@eval{\|
|00000ea0| 64 65 66 5c 40 76 61 6c | 7b 46 7d 5c 64 65 66 5c |def\@val|{F}\def\|
|00000eb0| 40 6f 72 6f 70 7b 54 7d | 5c 64 65 66 5c 40 6e 65 |@orop{T}|\def\@ne|
|00000ec0| 67 61 74 65 7b 46 7d 7d | 0a 0a 5c 64 65 66 5c 40 |gate{F}}|..\def\@|
|00000ed0| 65 6e 64 65 76 61 6c 7b | 5c 69 66 5c 40 6e 65 67 |endeval{|\if\@neg|
|00000ee0| 61 74 65 20 54 5c 64 65 | 66 5c 40 6e 65 67 61 74 |ate T\de|f\@negat|
|00000ef0| 65 7b 46 7d 5c 69 66 5c | 40 74 65 72 6d 20 54 5c |e{F}\if\|@term T\|
|00000f00| 64 65 66 5c 40 74 65 72 | 6d 7b 46 7d 5c 65 6c 73 |def\@ter|m{F}\els|
|00000f10| 65 20 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e .     |        |
|00000f20| 20 20 5c 64 65 66 5c 40 | 74 65 72 6d 7b 54 7d 5c |  \def\@|term{T}\|
|00000f30| 66 69 5c 66 69 0a 20 20 | 20 20 20 20 20 5c 69 66 |fi\fi.  |     \if|
|00000f40| 5c 40 6f 72 6f 70 20 54 | 5c 69 66 5c 40 76 61 6c |\@orop T|\if\@val|
|00000f50| 20 46 5c 6c 65 74 5c 40 | 76 61 6c 5c 40 74 65 72 | F\let\@|val\@ter|
|00000f60| 6d 5c 66 69 0a 20 20 20 | 20 20 20 20 20 20 20 20 |m\fi.   |        |
|00000f70| 20 20 5c 65 6c 73 65 20 | 5c 69 66 5c 40 76 61 6c |  \else |\if\@val|
|00000f80| 20 54 5c 6c 65 74 5c 40 | 76 61 6c 5c 40 74 65 72 | T\let\@|val\@ter|
|00000f90| 6d 5c 66 69 5c 66 69 7d | 0a 0a 5c 64 65 66 5c 40 |m\fi\fi}|..\def\@|
|00000fa0| 6f 72 7b 5c 72 65 6c 61 | 78 5c 64 65 66 5c 6e 6f |or{\rela|x\def\no|
|00000fb0| 65 78 70 61 6e 64 5c 40 | 74 65 72 6d 7b 54 7d 5c |expand\@|term{T}\|
|00000fc0| 65 6c 73 65 20 5c 64 65 | 66 5c 6e 6f 65 78 70 61 |else \de|f\noexpa|
|00000fd0| 6e 64 5c 40 74 65 72 6d | 7b 46 7d 5c 66 69 0a 20 |nd\@term|{F}\fi. |
|00000fe0| 20 20 20 20 20 20 20 20 | 5c 6e 6f 65 78 70 61 6e |        |\noexpan|
|00000ff0| 64 5c 40 65 6e 64 65 76 | 61 6c 20 5c 64 65 66 5c |d\@endev|al \def\|
|00001000| 6e 6f 65 78 70 61 6e 64 | 5c 40 6f 72 6f 70 7b 54 |noexpand|\@orop{T|
|00001010| 7d 5c 69 66 6e 75 6d 7d | 0a 0a 5c 64 65 66 5c 40 |}\ifnum}|..\def\@|
|00001020| 61 6e 64 7b 5c 72 65 6c | 61 78 5c 64 65 66 5c 6e |and{\rel|ax\def\n|
|00001030| 6f 65 78 70 61 6e 64 5c | 40 74 65 72 6d 7b 54 7d |oexpand\|@term{T}|
|00001040| 5c 65 6c 73 65 20 5c 64 | 65 66 5c 6e 6f 65 78 70 |\else \d|ef\noexp|
|00001050| 61 6e 64 5c 40 74 65 72 | 6d 7b 46 7d 5c 66 69 0a |and\@ter|m{F}\fi.|
|00001060| 20 20 20 20 20 20 20 20 | 20 20 5c 6e 6f 65 78 70 |        |  \noexp|
|00001070| 61 6e 64 5c 40 65 6e 64 | 65 76 61 6c 5c 64 65 66 |and\@end|eval\def|
|00001080| 5c 6e 6f 65 78 70 61 6e | 64 5c 40 6f 72 6f 70 7b |\noexpan|d\@orop{|
|00001090| 46 7d 5c 69 66 6e 75 6d | 7d 0a 0a 5c 64 65 66 5c |F}\ifnum|}..\def\|
|000010a0| 40 6e 65 67 7b 31 3d 31 | 20 5c 66 69 20 5c 64 65 |@neg{1=1| \fi \de|
|000010b0| 66 5c 6e 6f 65 78 70 61 | 6e 64 5c 40 6e 65 67 61 |f\noexpa|nd\@nega|
|000010c0| 74 65 7b 54 7d 5c 69 66 | 6e 75 6d 7d 0a 0a 5c 64 |te{T}\if|num}..\d|
|000010d0| 65 66 5c 40 6c 70 61 72 | 65 6e 7b 31 3d 31 20 5c |ef\@lpar|en{1=1 \|
|000010e0| 66 69 20 5c 62 65 67 69 | 6e 67 72 6f 75 70 20 5c |fi \begi|ngroup \|
|000010f0| 6e 6f 65 78 70 61 6e 64 | 5c 40 65 76 61 6c 20 5c |noexpand|\@eval \|
|00001100| 69 66 6e 75 6d 7d 0a 0a | 5c 64 65 66 5c 40 72 70 |ifnum}..|\def\@rp|
|00001110| 61 72 65 6e 7b 5c 72 65 | 6c 61 78 5c 64 65 66 5c |aren{\re|lax\def\|
|00001120| 6e 6f 65 78 70 61 6e 64 | 5c 40 74 65 72 6d 7b 54 |noexpand|\@term{T|
|00001130| 7d 5c 65 6c 73 65 20 5c | 64 65 66 5c 6e 6f 65 78 |}\else \|def\noex|
|00001140| 70 61 6e 64 5c 40 74 65 | 72 6d 7b 46 7d 5c 66 69 |pand\@te|rm{F}\fi|
|00001150| 20 0a 20 20 20 20 20 20 | 5c 6e 6f 65 78 70 61 6e | .      |\noexpan|
|00001160| 64 5c 40 65 6e 64 65 76 | 61 6c 20 5c 69 66 5c 6e |d\@endev|al \if\n|
|00001170| 6f 65 78 70 61 6e 64 5c | 40 76 61 6c 20 54 5c 67 |oexpand\|@val T\g|
|00001180| 64 65 66 5c 6e 6f 65 78 | 70 61 6e 64 5c 40 67 74 |def\noex|pand\@gt|
|00001190| 65 6d 70 62 7b 31 3d 31 | 7d 5c 65 6c 73 65 20 0a |empb{1=1|}\else .|
|000011a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 5c 67 64 65 |        |    \gde|
|000011b0| 66 5c 6e 6f 65 78 70 61 | 6e 64 5c 40 67 74 65 6d |f\noexpa|nd\@gtem|
|000011c0| 70 62 7b 31 3d 30 7d 5c | 66 69 0a 20 20 20 20 20 |pb{1=0}\|fi.     |
|000011d0| 20 20 20 20 20 20 20 5c | 65 6e 64 67 72 6f 75 70 |       \|endgroup|
|000011e0| 20 5c 69 66 6e 75 6d 5c | 6e 6f 65 78 70 61 6e 64 | \ifnum\|noexpand|
|000011f0| 5c 40 67 74 65 6d 70 62 | 7d 0a 0a 5c 64 65 66 5c |\@gtempb|}..\def\|
|00001200| 65 71 75 61 6c 23 31 23 | 32 7b 31 3d 31 20 5c 66 |equal#1#|2{1=1 \f|
|00001210| 69 20 5c 65 64 65 66 5c | 6e 6f 65 78 70 61 6e 64 |i \edef\|noexpand|
|00001220| 5c 40 74 65 6d 70 61 7b | 23 31 7d 5c 65 64 65 66 |\@tempa{|#1}\edef|
|00001230| 5c 6e 6f 65 78 70 61 6e | 64 5c 40 74 65 6d 70 62 |\noexpan|d\@tempb|
|00001240| 7b 23 32 7d 5c 69 66 78 | 0a 20 20 20 20 20 20 20 |{#2}\ifx|.       |
|00001250| 20 20 20 20 20 20 20 20 | 20 5c 6e 6f 65 78 70 61 |        | \noexpa|
|00001260| 6e 64 5c 40 74 65 6d 70 | 61 5c 6e 6f 65 78 70 61 |nd\@temp|a\noexpa|
|00001270| 6e 64 5c 40 74 65 6d 70 | 62 20 0a 20 20 20 20 20 |nd\@temp|b .     |
|00001280| 20 20 20 20 20 20 20 20 | 20 20 20 5c 64 65 66 5c |        |   \def\|
|00001290| 6e 6f 65 78 70 61 6e 64 | 5c 40 74 65 6d 70 61 7b |noexpand|\@tempa{|
|000012a0| 31 3d 31 7d 5c 65 6c 73 | 65 0a 20 20 20 20 20 20 |1=1}\els|e.      |
|000012b0| 20 20 20 20 20 20 20 20 | 20 20 5c 64 65 66 5c 6e |        |  \def\n|
|000012c0| 6f 65 78 70 61 6e 64 5c | 40 74 65 6d 70 61 7b 31 |oexpand\|@tempa{1|
|000012d0| 3d 30 7d 5c 66 69 20 5c | 69 66 6e 75 6d 20 5c 6e |=0}\fi \|ifnum \n|
|000012e0| 6f 65 78 70 61 6e 64 5c | 40 74 65 6d 70 61 7d 0a |oexpand\|@tempa}.|
|000012f0| 0a 5c 6c 6f 6e 67 5c 64 | 65 66 5c 77 68 69 6c 65 |.\long\d|ef\while|
|00001300| 64 6f 23 31 23 32 7b 5c | 69 66 74 68 65 6e 65 6c |do#1#2{\|ifthenel|
|00001310| 73 65 7b 23 31 7d 7b 5c | 40 77 68 69 6c 65 64 6f |se{#1}{\|@whiledo|
|00001320| 74 72 75 65 20 5c 40 77 | 68 69 6c 65 73 77 5c 69 |true \@w|hilesw\i|
|00001330| 66 40 77 68 69 6c 65 64 | 6f 0a 20 20 20 20 20 20 |f@whiled|o.      |
|00001340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 5c 66 |        |      \f|
|00001350| 69 7b 23 32 5c 69 66 74 | 68 65 6e 65 6c 73 65 7b |i{#2\ift|henelse{|
|00001360| 23 31 7d 7b 5c 40 77 68 | 69 6c 65 64 6f 74 72 75 |#1}{\@wh|iledotru|
|00001370| 65 7d 7b 5c 40 77 68 69 | 6c 65 64 6f 66 61 6c 73 |e}{\@whi|ledofals|
|00001380| 65 7d 7d 7d 7b 7d 7d 0a | 0a 5c 6e 65 77 69 66 5c |e}}}{}}.|.\newif\|
|00001390| 69 66 40 77 68 69 6c 65 | 64 6f 0a 0a             |if@while|do..    |
+--------+-------------------------+-------------------------+--------+--------+